﻿'Miguel angel Laguardia

Option Explicit On
Option Strict On

Imports System.IO
Imports System.Collections.Generic

Public Class Tratamiento

    Dim _idTratamiento As String
    Dim _Nombre As String
    Dim _Precio As Integer
    Dim _Descripcion As String
    Dim _Tiempos As Integer


    Public Sub New()

        _idTratamiento = ""
        _Nombre = ""
        _Precio = 0
        _Descripcion = ""
        _Tiempos = 0

    End Sub

    Public Sub New(ByVal IdTratamiento As String, ByVal nuevoNombre As String, ByVal nuevoPrecio As Integer, ByVal nuevaDescripcion As String, ByVal nuevoTiempo As Integer)

        _idTratamiento = IdTratamiento
        _Nombre = nuevoNombre
        _Precio = nuevoPrecio
        _Descripcion = nuevaDescripcion
        _Tiempos = nuevoTiempo


    End Sub

    Public Property IdTratamiento() As String
        Get
            Return _idTratamiento
        End Get
        Set(ByVal value As String)
            _idTratamiento = value
        End Set
    End Property

    Public Property nombre() As String
        Get
            Return _Nombre
        End Get

        Set(ByVal nuevoNombre As String)
            _Nombre = nuevoNombre
        End Set

    End Property

    Public Property Precio() As Integer
        Get
            Return _Precio
        End Get

        Set(ByVal nuevoPrecio As Integer)
            _Precio = nuevoPrecio
        End Set

    End Property
    Public Property Descripcion() As String
        Get
            Return _Descripcion
        End Get

        Set(ByVal nuevaDescripcion As String)
            _Descripcion = nuevaDescripcion
        End Set

    End Property
    Public Property Tiempos() As Integer
        Get
            Return _Tiempos
        End Get

        Set(ByVal nuevoTiempo As Integer)
            _Tiempos = nuevoTiempo
        End Set

    End Property

    Public Overridable Function To_String() As String

        Dim PersonaString As String = ""

        PersonaString = _Nombre & " + " & _Descripcion & " + " & _Precio & " + " & _Tiempos

        Return PersonaString

    End Function

    Public Sub Dispose()
        _idTratamiento = ""
        _Nombre = ""
        _Precio = 0
        _Descripcion = ""
        _Tiempos = 0
    End Sub

    Protected Overrides Sub Finalize()

        _idTratamiento = ""
        _Nombre = ""
        _Precio = 0
        _Descripcion = ""
        _Tiempos = 0
    End Sub
End Class

